home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / epp_v1_1.lha / EPP / PModules / cSkipToEDelim.e < prev    next >
Text File  |  1993-06-26  |  522b  |  20 lines
  1. OPT TURBO
  2.  
  3. PROC cSkipToEDelim (pos : PTR TO CHAR)
  4.   DEF c
  5.   /* Finds the next E delimiter in a string and returns its position. */
  6.   WHILE (c := pos [])
  7.     IF (c > 122) THEN RETURN pos      /* "z" */
  8.     IF (c < 95)                       /* "_" */
  9.       IF (c > 90) THEN RETURN pos     /* "Z" */
  10.       IF (c < 65)                     /* "A" */
  11.         IF (c > 57) THEN RETURN pos   /* "9" */
  12.         IF (c < 48) THEN RETURN pos   /* "0" */
  13.       ENDIF
  14.     ENDIF
  15.     INC pos
  16.   ENDWHILE
  17. ENDPROC  pos
  18.   /* cSkipToEDelim */
  19.  
  20.